Load Packages
library(dplyr)
Warning: package ‘dplyr’ was built under R version 4.0.5
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
library(tidyverse)
Warning: package ‘tidyverse’ was built under R version 4.0.5
Registered S3 methods overwritten by 'dbplyr':
method from
print.tbl_lazy
print.tbl_sql
-- Attaching packages -------------------------------------- tidyverse 1.3.1 --
v ggplot2 3.3.5 v purrr 0.3.4
v tibble 3.1.5 v stringr 1.4.0
v tidyr 1.1.4 v forcats 0.5.1
v readr 2.0.2
Warning: package ‘ggplot2’ was built under R version 4.0.5
Warning: package ‘tibble’ was built under R version 4.0.5
Warning: package ‘tidyr’ was built under R version 4.0.5
Warning: package ‘readr’ was built under R version 4.0.5
Warning: package ‘purrr’ was built under R version 4.0.5
Warning: package ‘stringr’ was built under R version 4.0.3
Warning: package ‘forcats’ was built under R version 4.0.5
-- Conflicts ----------------------------------------- tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
library(ggplot2)
library(janitor)
Warning: package ‘janitor’ was built under R version 4.0.5
Attaching package: ‘janitor’
The following objects are masked from ‘package:stats’:
chisq.test, fisher.test
library(lubridate)
Warning: package ‘lubridate’ was built under R version 4.0.5
Attaching package: ‘lubridate’
The following objects are masked from ‘package:base’:
date, intersect, setdiff, union
library(tidymodels)
Warning: package ‘tidymodels’ was built under R version 4.0.5
Registered S3 method overwritten by 'tune':
method from
required_pkgs.model_spec parsnip
-- Attaching packages ------------------------------------- tidymodels 0.1.4 --
v broom 0.7.9 v rsample 0.1.0
v dials 0.0.10 v tune 0.1.6
v infer 1.0.0 v workflows 0.2.3
v modeldata 0.1.1 v workflowsets 0.1.0
v parsnip 0.1.7 v yardstick 0.0.8
v recipes 0.1.17
Warning: package ‘broom’ was built under R version 4.0.5
Warning: package ‘dials’ was built under R version 4.0.5
Warning: package ‘scales’ was built under R version 4.0.3
Warning: package ‘infer’ was built under R version 4.0.5
Warning: package ‘modeldata’ was built under R version 4.0.5
Warning: package ‘parsnip’ was built under R version 4.0.5
Warning: package ‘recipes’ was built under R version 4.0.5
Warning: package ‘rsample’ was built under R version 4.0.5
Warning: package ‘tune’ was built under R version 4.0.5
Warning: package ‘workflows’ was built under R version 4.0.5
Warning: package ‘workflowsets’ was built under R version 4.0.5
Warning: package ‘yardstick’ was built under R version 4.0.5
-- Conflicts ---------------------------------------- tidymodels_conflicts() --
x scales::discard() masks purrr::discard()
x dplyr::filter() masks stats::filter()
x recipes::fixed() masks stringr::fixed()
x dplyr::lag() masks stats::lag()
x yardstick::spec() masks readr::spec()
x recipes::step() masks stats::step()
* Use tidymodels_prefer() to resolve common conflicts.
library(httr)
Warning: package ‘httr’ was built under R version 4.0.5
library(jsonlite)
Warning: package ‘jsonlite’ was built under R version 4.0.5
Attaching package: ‘jsonlite’
The following object is masked from ‘package:purrr’:
flatten
library(sf)
Warning: package ‘sf’ was built under R version 4.0.5
Linking to GEOS 3.9.1, GDAL 3.2.1, PROJ 7.2.1
library(tmap)
Warning: package ‘tmap’ was built under R version 4.0.5
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudio
Load Data
raw_sr_data <- read.csv("SR_data.csv") %>%
clean_names()
Just ADK
raw_adk_data <- raw_sr_data %>%
filter(incident_adirondack_park == "true")
All Data Map
raw_sr_map <- raw_sr_data[complete.cases(raw_sr_data), ] %>%
# select(location_found_latitude,location_found_longitude) %>%
st_as_sf(coords = c("location_found_longitude", "location_found_latitude"), crs = 4326)
tmap_mode("view")
tmap mode set to interactive viewing
tm_shape(raw_sr_map) +
# tm_borders() +
# tm_shape(adk_geom_data) +
tm_dots(size=0.02,col="red", alpha = 0.5) + tm_legend(outside = TRUE) #tm_text("Locations of Incidents in New York State that Required Ranger Assistance")